dim zhy
function getPath() 
getPath=left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1) 
end function 
app = getPath + "\xw_aiot.exe"
set zhy = WScript.CreateObject("WScript.Shell")
Randomize
x = 3000
WScript.Sleep(x)
zhy.run(app)